home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Midi / Setups / def-setup < prev    next >
Text File  |  1998-10-23  |  2KB  |  62 lines
  1. def-setup devices & ports
  2.  
  3. If you have Opcode Studio-5 interface, or similar, which allows to access more that 16 MIDI channels with MidiTimePiece you can use def-setup to define your studio configuration. Each synthesizer accesses 16 channels and is connected to a different port.
  4.  
  5. (def-setup
  6.    k2000 0                  ; MIDI port 0 Ch. 1-16 (modem port)
  7.    k2000i 1                 ; MIDI port 1 Ch. 1-16 (printer port)
  8.    k2000ii 2                ; MIDI port 2 Ch. 1-16 
  9.    super-soundcanvas (3 4)  ; MIDI port 3 and 4 Ch. 1-32 
  10. )
  11.  
  12. def-setup creates atom names that contain the proper virtual channels. Above lets you now use channels like
  13.  
  14. k2000-1, k2000-2 ... k2000-16
  15. k2000i-1, k2000i-2 ... k2000i-16
  16. k2000ii-1, k2000ii-2 ... k2000ii-16 
  17. super-soundcanvas-1, super-soundcanvas-2 ...  super-soundcanvas-32
  18.  
  19. Using setup channels in def-channel
  20.  
  21. (def-channel
  22.    piano1 k2000-1
  23.    piano2 k2000i-1
  24. )
  25.  
  26. Using setup channels in def-section
  27.  
  28. (def-orchestra 'orchestra
  29.    all-instruments (piano synth bass)
  30. )
  31.  
  32. (def-section a
  33.    default
  34.       zone '(1/16)
  35.       tonality (activate-tonality (major c 4))
  36.       length '(1/16)
  37.       velocity '(64)
  38.       symbol '(a b c)
  39.    piano 
  40.       channel k2000-1
  41.       program (k2000 dual-elec-piano) 
  42.    synth
  43.       channel k2000i-1
  44.       program (k2000 new-prophet) 
  45.    bass
  46.       channel k2000ii-1
  47.       program (k2000 big-jupiter) 
  48. )
  49.  
  50. (play-file-p "test2"
  51.    all-instruments '(a)
  52. )
  53.  
  54. You can put a setup definition into the Environment/Extensions. Make it this way:
  55.  
  56. (do-quietly
  57.   (def-setup
  58.     k2000i    1  
  59.     k2000ii   2)
  60. )
  61.  
  62.